home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Education
/
World of Education.iso
/
world_c
/
castles.zip
/
CASTLE.SH~
(
.txt
)
< prev
next >
Wrap
IBM Storyboard Story
|
1991-06-08
|
32KB
|
985 lines
EP_SHW
/* Writen by M. C. Dukes
0
/* 7-12-91 Rev 1
/* C) Erudition 1991
/* All rights reserved
CNTRL
/GOSUB INTRO
/GOSUB START
/GOSUB JAN
TEXT3 PUSH UP
NONESLOW PART172 13 239 22 136 145
/GOSUB F1
NONE
/GOSUB FEB
TEXT3 PUSH UP
NONESLOW PART172 23 239 32 136 145
/GOSUB F2
/GOSUB MAR
TEXT3 PUSH UP
NONESLOW PART244 2 311 11 136 145
/GOSUB F3
/GOSUB APR
TEXT3 PUSH UP
NONESLOW PART244 12 311 21 136 145
/GOSUB F4
/GOSUB MAY
TEXT3 PUSH UP
NONESLOW PART244 23 311 32 136 145
/GOSUB F5
/GOSUB JUN
TEXT3 PUSH UP
NONESLOW PART244 33 311 42 136 145
/GOSUB F6
/GOSUB JUL
TEXT3 PUSH UP
NONESLOW PART244 43 311 52 136 145
/GOSUB F7
/GOSUB AUG
TEXT3 PUSH UP
NONESLOW PART244 53 311 62 136 145
/GOSUB F8
/GOSUB SEP
TEXT3 PUSH UP
NONESLOW PART172 3 239 12 136 145
/GOSUB F9
/GOSUB OCT
TEXT3 PUSH UP
NONESLOW PART244 63 311 72 136 145
/GOSUB F10
/GOSUB NOV
TEXT3 PUSH UP
NONESLOW PART244 72 311 81 136 145
/GOSUB F11
/GOSUB DEC
TEXT3 PUSH UP
NONESLOW PART172 72 239 81 136 145
/GOSUB F12
/GOSUB WAVE
KEY
/GOTO CNTRL
/END
INTRO
TITLE CHECKER LEFT
NONEFAST8 FULL
HEARYEE EXPLODE UP
SLOW0
TEXT1 REPLACE DOWN
60 2 PART144 0 319 134 144 4
TEXT1 FADE
MED KEY 132 179 319 194 128 160
SCROLL CRUSH OUT-V
WHT SLOW0 FULL
TEXT2 FADE
5 PART0 0 215 88 20 60
/INPUT 0
0
TEXT2
0 87 235 115 16 162
/INPUT 1
/IF S GOTO RET
KEY
SCROLL
MED 0 0 0 239 199 SAME
TEXT2
SLOW2 0 120 215 133 20 84
1-6
0 16 31 75 92 236 60
/GOSUB PKC
TEXT2
SLOW2 0 133 215 159 12 61
TEXT2
0 160 167 172 24 92
1-6
132 30 191 94 236 59
1-6
244 28 303 92 236 59
TEXT2
2 8 173 163 186 44 108
1-6
2 12 125 75 190 232 59
1-6
0 128 125 191 190 232 59
/GOSUB PKC
SCROLL
MED 0 0 0 231 197 SAME
TEXT3
SLOW2 0 0 167 23 36 70
TEXT3
0 24 167 36 36 96
1-6
244 126 307 189 236 60
7-12
16 28 79 91 232 60
7-12
128 28 191 91 236 60
/GOSUB PKC
TEXT3
SLOW2 8 37 195 72 28 60
TEXT3
8 72 147 98 28 99
7-12
236 26 303 92 232 59
7-12
16 122 83 188 232 59
7-12
128 122 195 188 232 59
7-12
236 122 303 188 232 59
/GOSUB PKC
/RETURN
START
CASTLE EXPLODE UP
NONESLOW0 FULL
SHIP PUSH LEFT
10 2 PART164 69 319 135 196 24
SMSCROLL SPLIT OUT-H
MED 20 129 315 195 12 136
/RETURN
JAN
TEXT3 CRUSH OUT-H
MED 0 136 150 307 172 76 162
TEXT3 REPLACE RIGHT
172 3 239 12 96 174
TEXT3
176 13 235 22 192 174
/INPUT 1
/IF B GOTO RET
SMSCROLL FADE
FAST0 64 151 271 182 56 158
TEXT2
MED 4 8 120 183 132 72 167
/GOTO JAN
0
FEB
TEXT3 CRUSH OUT-H
MED 0 136 173 307 196 76 162
TEXT3 REPLACE RIGHT
172 23 239 32 96 175
TEXT3
248 63 307 72 192 174
/INPUT 1
/IF A GOTO RET
TEXT2 FADE
NONESLOW4 0 160 187 185 68 161
/GOTO FEB
0
MAR
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
256 2 307 11 96 175
TEXT3
172 72 239 81 192 174
/INPUT 1
/IF A GOTO RET
TEXT2 FADE
NONESLOW4 0 160 187 185 68 161
/GOTO MAR
0
APR
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
256 53 315 62 96 175
TEXT3
256 12 295 21 192 174
/INPUT 1
/IF B GOTO RET
TEXT2 FADE
NONESLOW4 0 160 187 185 68 161
/GOTO APR
0
MAY
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
260 43 295 52 96 175
TEXT3
260 23 299 32 192 175
/INPUT 1
/IF B GOTO RET
TEXT2 FADE
NONESLOW4 0 160 187 185 68 161
/GOTO MAY
0
JUN
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
260 33 295 42 96 175
TEXT3
252 63 307 72 192 175
/INPUT 1
/IF A GOTO RET
/GOSUB LST3
/GOTO JUN
0
JUL
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
244 73 311 82 96 175
TEXT3
252 43 307 52 192 175
/INPUT 1
/IF B GOTO RET
/GOSUB LST3
/GOTO JUL
0
AUG
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
256 2 299 11 96 175
TEXT3
252 53 303 62 192 175
/INPUT 1
/IF B GOTO RET
/GOSUB LST3
/GOTO AUG
0
SEP
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
172 3 239 12 96 175
TEXT3
172 13 239 22 192 175
/INPUT 1
/IF A GOTO RET
/GOSUB LST4
/GOTO SEP
0
OCT
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
252 63 307 72 96 175
TEXT3
260 23 295 32 192 175
/INPUT 1
/IF A GOTO RET
/GOSUB LST4
/GOTO OCT
0
NOV
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
244 72 307 81 96 175
TEXT3
256 33 295 42 192 175
/INPUT 1
/IF A GOTO RET
/GOSUB LST4
/GOTO NOV
0
DEC
TEXT3 CRUSH OUT-H
MED 0 136 173 315 196 76 162
TEXT3 REPLACE RIGHT
172 72 239 81 96 175
TEXT3
256 33 295 42 192 175
/INPUT 1
/IF A GOTO RET
/GOSUB LST4
/GOTO DEC
0
F1
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 88 48 95 72 136 30
/CLEAR n 2
/RETURN
SHIP
F2
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 84 48 103 72 72 30
/CLEAR n 2
/RETURN
SHIP
F3
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 96 30 99 54 56 30
/CLEAR n 2
/RETURN
SHIP
F4
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 88 48 95 72 36 30
/CLEAR n 2
/RETURN
F5
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 84 48 103 72 40 30
/CLEAR n 2
/RETURN
F6
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 80 55 107 79 52 4
/CLEAR n 2
/RETURN
SHIP
F7
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 88 45 95 73 116 26
/CLEAR n 2
/RETURN
F8
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 80 48 103 78 56 24
/CLEAR n 2
/RETURN
F9
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 84 48 99 72 104 30
/CLEAR n 2
/RETURN
SHIP
F10
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 84 48 103 70 120 32
/CLEAR n 2
/RETURN
SHIP
F11
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
SHIP FADE
.5 80 31 107 81 84 4
/CLEAR n 2
/RETURN
SHIP
F12
SHIP DIAGONALUP
FAST0 96 132 131 163 192 46
/CLEAR DOWN
96 132 131 163 192 46
SHIP DIAGONALUP
FAST 96 132 131 163 192 46
/CLEAR DOWN
.5 96 132 131 163 192 46
KABOOM EXPLODE OUT-V
.5 60 18 219 150 12 0
CASTLE FADE n 10 0 164 29 315 135 20 29
/RETURN
RET
/RETURN
1
PKC
/INPUT 0
TEXT1
0 0 158 211 173 16 170
/INPUT 1
KEY
SCROLL
FAST0 0 0 231 199 SAME
/RETURN
SLOW
LST4
TEXT3 FADE
NONESLOW6 4 37 191 60 68 162
SMSCROLL
FAST0 64 155 271 178 56 162
TEXT3
SLOW4 8 61 83 72 128 167
TEXT3
6 8 73 151 98 92 162
/RETURN
LST3
SMSCROLL FADE
NONEFAST0 72 155 259 178 68 162
TEXT3
SLOW6 8 0 151 23 92 162
SMSCROLL FADE
NONEFAST0 68 155 267 178 60 162
TEXT3
SLOW6 12 25 159 36 84 168
/RETURN
WAVE
CASTLE FADE
NONEFAST0 PART0 115 319 198 0 114
SHIP PUSH RIGHT
25 0 185 319 190 0 91
ISLAND EXPLODE OUT-V
FAST2 128 2 255 23 200 103
ISLAND FADE
MED 0 72 144 155 190 36 50
CASTLE
FAST 0 98 319 199 196 98
ISLAND
MED 3 132 27 271 67 100 128
CASTLE
FAST0 0 98 319 199 SAME
ISLAND
MED 2 124 69 279 86 92 99
ISLAND
36 8 107 91 136 117
CASTLE
0 36 98 283 115 40 99
ISLAND
2 124 87 215 105 128 99
ISLAND
124 108 275 126 96 99
/INPUT 0
TRES
TRESURE FADE
FAST0 12 10 99 94 136 119
TRESURE
92 10 175 94 132 119
TRESURE
176 10 259 94 132 119
TRESURE
4 110 95 194 128 119
TRESURE
88 110 179 194 128 119
TRESURE
176 110 267 194 132 119
/INPUT 0
/IFNOT KEY GOTO TRES
SCROLL EXPLODE IN-H
0 FULL
TEXT4 FADE
MED 6 PART0 0 183 63 64 63
TEXT4
0 60 183 123 64 63
TEXT4
0 117 183 180 64 63
/INPUT 0
0
TEXT4
KEY 8 177 295 196 12 165
/INPUT 1
/IFNOT Q GOTO RET
/END
/RETURN
TEST
/gosub start
/GOSUB JAN
/gosub F12
/end